Light ROM 1/LIGHT-ROM 1 (Amiga Library Services)(1994).iso/ffdisks/d880.lha/Oberon/O3Demo2.lzh/Examples/Fak.mod

Text File | 1993-01-15 | 301b | 19 lines

MODULE Fak;

IMPORT BI := BigIntegers, io;

VAR
  i: INTEGER;
  bi: BI.BigInteger;

BEGIN
  bi := BI.Create(1);
  FOR i:=1 TO 100 DO
    io.WriteInt(i,4); io.WriteString("! =");
    bi := bi.Mul(BI.Create(i))(BI.BigInteger);
    io.WriteString(bi.ConvertToString()^);
    io.WriteLn;
  END;
END Fak.